home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / ARCHIVERS / BEGINNER / TARZ / !tarZ_mvarchive < prev    next >
Encoding:
Text File  |  1999-04-24  |  740 b   |  22 lines
  1. BEGIN {
  2.       command="count <tarZ$use>.archive ~C~RV";
  3.       command | getline;
  4.       close(command);
  5.       if (substr($2,length($2)-length("_tar")+1)=="_tar")
  6.          {
  7.          system(sprintf("rename %s <tarZ$use>.archive.x_tar",$2));
  8.          print "WARNING: assuming uncompressed tarfile";         
  9.          exit;
  10.          }
  11.       if (substr($2,length($2)-length("-tar")+1)=="-tar")
  12.          {
  13.          system(sprintf("rename %s <tarZ$use>.archive.x_tar",$2));
  14.          print "WARNING: assuming uncompressed tarfile";         
  15.          exit;
  16.          }
  17.       if (toupper(substr($2,length($2)-length("x_tar-Z")+1))!=toupper("x_tar-Z"))
  18.          {
  19.          system(sprintf("rename %s <tarZ$use>.archive.x_tar-Z",$2));
  20.          }
  21.       }
  22.